home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD012a.dsk / ORION.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  34 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM  PROGRAM LENGTH=1000
  3. 120  REM <CTRL-M><CTRL-M>==================<CTRL-M>PAUL RAYMER<CTRL-M>BOX 42831<CTRL-M>LAS VEGAS NV 89116<CTRL-M>==================<CTRL-J>
  4. 130  REM 
  5. 140  REM  PAUL RAYMER'S
  6. 150  REM  MYTHOLOGY
  7. 160  REM  TABLEAUX
  8. 170  REM 
  9. 180  REM  ORION
  10. 190  REM  (C)1982 PEC<CTRL-J>
  11. 200  REM 
  12. 210  SPEED= 50
  13. 220  PRINT "IN GRATITUDE FOR SERVICES RENDERED,     ZEUS, HERMES AND POSEIDON GRANTED TO    HYRIEUS A SON.": PRINT 
  14. 230  PRINT "HYRIEUS ASKED THE GODS...WILL MY SON    EVER BECOME FAMOUS";
  15. 240  FOR Z = 1 TO 1000: NEXT Z
  16. 250  PRINT "...A STAR?": PRINT 
  17. 260  PRINT "ZEUS REPLIED, "; CHR$(34);"ONE DAY YOUR SON, ORION, WILL BECOME MORE THAN A STAR                        ----": PRINT 
  18. 270  FOR Z = 1 TO 1000: NEXT Z
  19. 280  PRINT "...AND ALL WILL LOOK UP TO HIM!"; CHR$(34);"                        ---- --"
  20. 290  SPEED= 255
  21. 300  FOR Z = 1 TO 2000: NEXT Z: HOME 
  22. 310  READ A,B,C
  23. 320  IF A = 0  THEN 380
  24. 330  IF C = 43  THEN  FLASH 
  25. 340  VTAB A: HTAB B: PRINT  CHR$(C)
  26. 350  NORMAL 
  27. 360  FOR Z = 1 TO 250: NEXT Z
  28. 370  GOTO 310
  29. 380  VTAB 22: HTAB 30: PRINT "ORION"
  30. 390  VTAB 23: HTAB 1
  31. 395  FOR I = 1 TO 5000: NEXT : PRINT  CHR$(13); CHR$(4);"RUN MYTHMENU"
  32. 400  DATA  4,15,46,7,9,42,7,21,42,11,16,43,12,15,43,13,14,43
  33. 410  DATA  14,15,46,15,16,42,17,21,42,20,10,42,19,22,46,20,22,46,20,23,46,22,12,46
  34. 420  DATA  0,0,0